#!/usr/bin/env perl

use strict;
use utf8;

my %score_hash = (
    "barney"    =>  129,
    "fred"      =>  258,
    "dino"      =>  195,
    "jim"       =>  226,
    "lily"      =>  300,
);

my @winner_list = sort {$score_hash{$b} <=> $score_hash{$a}} keys %score_hash;

printf "%s\n", "-"x30;
printf "Winner is %s\n", $winner_list[0];
printf "%s\n", "-"x30;

foreach my $name (@winner_list){
    printf "%-10s  ===>  %-5d\n", $name, $score_hash{$name};
}



